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Four  new  Project  SOLO  modules  are  presented  here; 
Langragian  Interpolation/Extrapolition,  Optics,  Chemistry  (Laboratory 
Style).  Chemistry  (Boy/Girl  Style).  The  latter  program  is  a computer 
dating  system  which  proved  to  be  very  popular  with  the  high  school 
students  who  developed  it.  (JY) 
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To  Each  His  Own  f| 

Any  doubts  about  the  reality  of  "individual* differences  in  learning  style 
vanish  into  thin  air  when  teacher /student  control  of  computing  is  given  free  play. 

Any  doubt  about  the  continued  importance  of  adult  guidance  and  professionally  pre- 
pared learning  materials  for  such  a "free"  atmosphere  also  goes  up  in  smoke  in 
face  of  the  requirements  of  such  a computer  supported  learning  system.  The  sup- 
posed conflict  between  structure  and  freedom  turns  out  to  be  non-existent.  Free- 
dom builds  on  structure,  and  structure  makes  freedom  possible. 

The  four  modules  enclosed  with  this  newsletter  illustrate  a range  of  approaches 
to  computer- related  instruction  and  learning  which  reflect  some  of  the  differences 
in  style  that  are  possible  within  an  educational  philosophy  that  integrates  researcher- 
teacher-student  ideas . 


Lagrangian  Interpolation/Extrapolation 

Tnis  module  was  prepared  by  Frank  Wimberly  of  the  Project  Solo  staff.  It 
illustrates  the  kind  of  contribution  to  computer  learning  that  can  best  be  made  by- 
authors  with  professional  mathematical  computing  backgrounds.  A follow  up  unit 
which  applies  the  material  in  this  module  to  plotter  displays  (such  as  the  HP-7200) 
is  also  being  prepared  by  Frank. 


This  CAI  unit  is  the  combined  effort  of  Allderdice  physics  teacher  John  M.  Shore 
and  student-teacher  Bernie  Meisner.  The  ability  of  students  to  use  the  computer  to 
calculate  answers  within  the  CAI  dialogue  provides  valuable  problem  solving  exper- 
ience for  students. 
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Chemistry  (Laboratory  Style) 

The  idea  for  the  /SPEX/  programs  enclosed  originated  with  Mrs.  Dolores 
Kubiak,  chemistry  teacher  at  Allderdice  High.  The  programs  were  developed  by 
student  Joel  Berez  and  are  in  use  by  fellow  chemistry  students.  Mrs.  Kubiak  en- 
courages students  to  use  the  output  of  these  programs  as  part  of  their  lab  reports. 
As  can  be  imagined,  these  students  think  automation  is  O.  K. 


Chemistry  (Bov/Girl  Style)  . 

The  computer  dating  system  described  on  the  following  pages  was  designed 
and  implemented  by  student  Leon  Sweer  (12^  grade).  Unfortunately  we  have  ha,d 
to  discourage  use  of  the  program.  The  lines  of  students  who  wanted  to  participate 
taxed  the  school's  terminal  capacity  to  the  bursting  point.  There  must  be  a lesson 
somewhere  in  this. 
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COMPUTER 


Certainly  not  a new  idea  in  computing,  but  one  that  lends  itself  to  many  variations, 
is  that  of  a computer  dating  service.  Even  though  such  services  are  generally  not  asso- 
ciated with  time  sharing  systems,  the  ability  to  store  large  data  files  on  the  Corn-Share 
system  makes  one  possible.  The  following  is  a description  of  such  a service  which  I de- 
signed using  the  NEWBASIC  language. 


How  the  Service  Operates 

The  basic  requirements  of  such  a service  are: 

1.  That  a pool  of  information  be  set  up  for  each  person  as  a basis 
for  comparing  the  "compatibility"  of  two  people  and  that  this 
information  be  stored  on  files  for  later  use. 

2.  That  the  information  of  one  individual  can  be  retrieved  and  com- 
pared against  the  information  of  the  other  people  on  file  (of  the 
opposite  sex,  of  course)  in  an  attempt  to  come  up  with  someone 
"compatible". 

3.  That  some  type  of  rating  system  be  set  up  to  determine  the  so- 
called  "limits  of  compatibility". 

In  my  service,  these  requirements  are  fulfilled  by  using  two  data  files  (one  stores 
the  boys'  information  and  one  the  girls')  and  two  NEWBASIC  programs.  The  first  pro- 
gram,  named  /DATE/,  asks  the  user  to  supply  certain  pieces  of  information  about  him- 
self or  herself.  The  first  ten  items  are  merely  to  record  name,  address,  and  other  such 
information.  The  rest  of  the  program  asks  questions  about  personality,  interests,  and 
what  type  of  a date  he  (or  she)  would  prefer.  This  information  is  stored  on  the  appro- 
priate data  file  (/BOYS/  or  /GIRLS/).  These  questions  are  not  necessarily  the  best  pos- 
sible ones  that  could  be  asked,  but  they  are  enough  to  gain  some  insight  into  what  type  of 
person  the  user  is  and  what  type  he  (or  she)  would  like. 

The  actual  comparisons,  however,  take  place  when  another  program,  named  /COM- 
PILER/, is  run.  For  simplicity,  the  service  is  set  up  so  that  the  user  does  not  have  ac- 
cess to  this  program.  Rather,  the  person  supervising  the  service  runs  all  of  the  names 
through  at  one  time  during  the  week.  This  also  helps  minimize  costs. 

When  the  name  and  sex  of  someone  on  file  is  entered,  the  information  under  his 
name  in  the  appropriate  file  is  read  into  core  as  well  as  the  entire  contents  of  the  oppo- 
site sex  file.  Comparisons  are  made  one  item  at  a time  on  a point  basis.  For  example, 
if  the  person  whose  name  was  typed  has  indicated  that  he  would  like  someone  about  the 
same  age,  and  the  age  of  the  person  from  the  other  file  is  close  to  his,  20  points  are  added 
to  the  score  of  that  person.  Thus,  at  the  end  of  all  the  comparisons,  there  will  be  as  many 
scores  (stored  in  array  S)  as  there  were  people  who  were  compared  with  the  entered  name. 
The  highest  possible  score  is  135  points.  Anything  above  110  is  considered  a very  good 
match, and  anything  above  80  is  considered  to  be  a fairly  good  match.  The  computer  then 
reviews  the  scores  and  prints  the  names  of  the  people  whose  scores  fell  within  those  high 
ranges.  All  data,  of  course,  is  then  read  back  into  the  data  files  to  be  used  again.  The 
listings  which  follow  contain  notes  on  programs  and  their  functions.  Following  the  listings 

are  sample  runs  of  both  /DATE/  and  /COMPILER/. 


PROJECT  SOLO  / Ve.pt.  o 6 Compute Jt  Science  / Untv.  ofi  PtttAbuAgk  (75213) 

Module  HI  30  / Leon  Su>eeA  (S) 
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/COMPILER/ 


m 

90 
95 
100 
1/|5 
l/l  7 
1/S9 
150 
153 
15/1 

155 

156 
160 
168 
163 
16/1 

165 

166 
167 
170 
30  0 
210 
220 
22  5 
22  7 
22  ii 
229 
250 
255 
260 
300 
30  1 

302 

303 
30/1 
305 
310 
320 
330 
3/1 0 
3/15 
350 
355 
360 
365 
ZlOO 
/lO  1 
/102 
403 


DIM  S£(30,30) 

DIM  I $C25,25> 

DIM  S (25) 

PR.  " DATING  COMPILER,  VERS.  DEC. 

PR.  PR.  PH.  PR.  "LAST  NAME-  ACCEPT  NS 

PR.  "FIRST  NAME-  ACCEPT  FS 

PR.  "SF.X-":  ACCEPT  S$ 


1,  1971" 

145-149 


CHECK  TO  SEE  IF  NAME 
ON  FILE 


3 END 


25 


200-300 

READ  ENTIRE  CONTENTS 
OF  OTHER  FILE 


INPUT  NAME  & SEX 
IF  I Ci  J ( S$,  "F",  0 ) OR  I Cl.)  ( SS, "G" , 0 ) THEN  155  150-200 
OPEN  * 1 59  WR  /BOYS/  ' FOR  INPUT,  3 
GOTO  156 

OPEN  * 1 59 UR  /GIRLS/*  FOR  INPUT,  3 
INPUT  FROM  3,  A 
FOR  1=1  TO  A 

INPUT  FROM  3,  S$(I,H)  FOR  H=1  TO  25 
IF  LEFT(N$,  3 ) = LEFT<  S$(  1 , 1 ) ,3)  THEN  1 6/|  ELSE  165 
IF  LEFT ( FS, 2 ) =LEFT <S$<I,2>,2)  THEN  167 
NEXT  I 

PR.  "NAME  NOT  FOUND  (RUN  159WR  /DATE/)"  CLOSE 
LET  I$(1,Q1)=S$(I,01)  FOR  01=1  TO  25 
CLOSE  3 

IF  ICO(I$( 1,7),"F",0)  THEM  250 
OPEN  * 159WR  /GIRLS/*  FOR  INPUT,  " 

INPUT  FROM  3, A 
FOR  1=2  TO  A+l 

INPUT  FROM  3,  I$<I,C)  FOR  C=1  TO 
NEXT  I 
GOTO  300 

OPEN  M59VR  /BOYS/*  FOR  INPUT,  3 
K=  1 

GOTO  220 
CLOSE  3 
FOR  C =2  TO  A+l 

IF  LEFT(I$(  1,  12),3)="0LD"  AND  LEFT (I$(C,12),3)  ="YOU"  THEN  310 
IF  LEFT(I$(  1,  12),3)="Y0U"  AND  LEFT(  I $(C,  12)  , 3 ) ="OLD"  THEN  310 

IF  LEFT(  I $(  1 , 12), 3)  ="SAM"  AND  LEFT(  I $ ( C,  12)  , 3 ) ="SAM"  THEN  310 

GOTO  400 

IF  ICO(I$(  1,  12),"OLD",0)  LET  G= 1 
IF  ICO(I$(  1,  12)  ,"YOUN",0)  LET  G=2 
V=VAL(I$(1,  17)  )-VAL(IS(C,17)) 

IF  G = 0 AND  - . 5<  = V AND  V<  = .5  LET  S(C)=S(C)+20  GOTO  400 
IF  G = 0 AND  - 1 <=V  AND  V<=1  LET  SCC)=S(C)  + 10  GOTO  400 
IF  G=1  AND  - 4 < = V AND  V<  = -1  LET  S(C)=S(C)+20  GOTO  400 
IF  G=  1 AND  - 1 < =V  AND  V<  = -.5  LET  S(C)=S(C)  + 10  GOTO  400 
IF  G = 2 AND  1 < =V  AND  V<=4  LET  S(C)=S(C)+20  GOTO  400 
IF  G=2  AND  . 5<=V  AND  V<=1  LET  S(C)=S(C)  + 10  GOTO  400 

IF  LEFT ( I $(  1 , 1 1 ),3) ="TAL"  AND  LEFT( I $(C, 1 1 ),  3)  ="SHO"  THEN  405 

IF  LEFT(  I $<  1 , 1 1)>3)  ="SH0M  AND  LEFTd  $ ( C,  1 1 ) , 3 ) ="TAL"  THEN  405 

IF  LF.FT(  I $(  1 , 1 1)  , 3 ) ="SAM"  AND  LEFT  ( I $<C,  1 1 ) , 3 ) =”SAM"  THEN  405 

GOTO  500 


300-365 

AGE  - UP  TO 
20  POINTS 


3 


f 

3 


/COMPILER/  (cont.  ) 


40  5 
/ll  0 
420 
430 
435 
4/10 
500 
50  5 
510 
515 
520 
600 
700 
70  1 
710 
715 
720 
730 
740 
750 
760 
770 
730 
000 
900 
910 
91  1 
913 


IF 

IF 

IF 

IF 

IF 

IF 


IF  ICOCISC  1#  1 1)#"TALL"#0) 
IF  ICOCISC  1#  1 1 )# "SHORT"# 0 
V=VALC  ISC  1#  18) )-VALCISCC# 
IF  13=1  AND  V<  = -2  LET  SCC) 
B=2  AND  V>=2  LET  SCC)  = 
-2<=V  AND  V<  = 2 LET  SCC 
A13SC  VALC  ISC  1#  10))-VALC 
ABSC VALC ISC  1#  13)) -VALC 
VALCISC 1# 10) )=VALCISCC 
VALCISC 1# 13) )=VALCISCC 
SCC)=SCC)+10 
IF  ISC 1#  15)=ISCC#  15) 

FOR  1=21  Til  25 

FOR  0=21  TCI  25 

IF  VALCISC  1#0)  )=VALCISCC# 

NEXT  0 

NEXT  I 

IF  ICOC ISC  1 # 14)#"SIM"#0) 
P1=C5-L)*3 

IF  ICOCISCC# 14)#"SIM"#0) 
P2=C5-L)*3 

I F LEFTC ISC  1 # 1 4 ) # 3 ) =LEFT  C 
SCC)=SCC)  +A13SCP  1 -P2) 

IF  LEFTC I SC  1#  16)#3)=LEFTC 
IF  ISC  1#20)=ISCC#8)  LET  S 
IF  ISC  1,8) =ISCC#20)  LET  S 
PR.  . . . 

P1-P2-L-  V-B-G-0 


400-440 

LET  13=  1 

) LET  13=2  HEIGHT  - UP  TO 

lw))  20  POINTS 

= S C C ) +20  GOTO  500 
SCO +20  GOTO  500 
) =S  C C) +20 

I SCC# 13) ) ) <=1  THEN  505 
ISCC#10)))  <=1  THEN  510 
# 13) ) LET  SCC) =SC C ) +5 
# 10) ) LET  SCC ) =SC C ) +5 


ELSE  600 
ELSE  600 

'500-520 


LET  SCC) =SCC)+15 


I ) ) LET  L=L+ 1 


600 


PERSONALITY  MATCH  - 
TO  20  POINTS 


KISS  ON 
DATE? 

15  POINTS 


FIRST 
UP  TO 


LET  P 1 =L*3  GOTO  750 
LET  P2=L*3  GOTO  770 


700-780 

INTEREST  MATCH  - UP 
TO  30  POINTS 


ISCC*  1 4 ) # 3 ) LET  SCC)=SCC) +P1 +P2  GOTO  800 


I SCC# 16) >3) 
CC)=SCC)+10 
CC)=SCC)+10 


LET  SCC)=SCC)+10 

900-910 


HAIR  COLOR  MATCH  - 
UP  TO  20  POINTS 


914  NEXT  C 

915  PR.  PR.  PR.  PR. 

916  PR.  "NUMBER  OF  PEOPLE  COMPARED*"  : C- 1 

917  PR.  PR*  "THE  COMPUTER  FEELS  THAT  THE 
A BIG  HIT  WITH  YOU:" 

918  FOR  13=2  Til  C 

919  IF  SCB)>=  110  LET  Z=Z+1  GOSUB  3000 

920  NEXT  B 

921  IF  Z=0  PR.  "NOBODY" 

922  PR.  PR.  "THE  COMPUTER  FEELS  THAT  THE 
A FAIRLY  DIG  HIT  WITH  YOU:" 


FOLLOWING  PEOPLE  WOULD  MAKE 


921-926 

PRINT  OUT  CHOSEN 
PEOPLE  (IF  ANY) 

FOLLOWING  PEOPLE  WOULD  MAKE 


923  FOR  B=2  TO  C 

924  IF  80<=SCB)  AND  SCBX110  LET  0=0+ 1 GOSUB  3000 

925  NEXT  D 

926  IF  0=0  PR.  "NOBODY" 


927  PR. 
2105  PR. 

2107  PR. 

2108  PR. 

2109  PR. 

2110  PR. 


PR.  PR. 

PR.  PR.  "DON'T  BE  TOO  SHOOK  IF  YOU  DIDN'T  GET  MATCHED  UP  WITH" 
"SOMEONE.  ANOTHER  RUN  WILL  BE  MADE  THE  END  nF  THE  WEEK" 

"AND  MAYBE  YOU  WILL  HAVE  BETTER  LUCK.  MEANWHILE#" 

"YOU  ARE  ALREADY  ON  FILE.  GOOD  LUCK!" 

PR.  PR.  VAR = ZERO  END 


UP 


Oi 


4 


/COMPILER/  (cont.) 


3000 

PI  . 

PR.  PR.  "NAME 

30  10 

PR  . 

"ADDRESS : 

3020 

PR  . 

II 

30  30 

PR  . 

"PHONE  NUMBER 

3040 

RETURN 

M*ISCB*2)  ":ISCB*3) 
":I$CB*4) 

":I$CB*5) 

" : I $03*  6) 


" : I$CB* 1) 

3000-3040 

ROUTINE  TO  PRINT 
CHOSEN  NAMES 


/DATE/ 


90 

94 

95 

96 
AS 

97 

98 
YHJ 


STRING  AC  I ) FOR  1 = 1 TO  20 
DIM  B < 4 0 ) 

PH.  PR.  " DATING  SERVICE  INSTRUCTIONS." 

PR.  PR.  " 1.  ANSWER  THE  QUESTIONS  IN  THIS  PROGRAM  AS  TRUTHFULLY 

YOU  CAN.  THE  INFORMATION  YiJU  SUPPLY  WILL  BE  STORED  IN  A CON-" 

PR • "FI DENTI AL  FILE." 

PR.  " 2.  WHEN  YOU  HAVE  RECEIVED  THE  MESSAGE  ’NAME  ON  FILE** 

CAN  BE  SURE  THAT  YOUR  NAME  AND  INFORMATION  HAVE  BEEN  SAVED. 


THAT  IS  ALL  YOU  HAVE  TO  DO." 

99  PR.  " 3.  COMPARISONS  ARE  RUN  ONCE  EACH  WEEK  ON  FRIDAY 

OR  SATURDAY • TO  FIND  OUT  IF  YOU  WERE  MATCHED  UP  WITH  ANYONE* 
NOTICE  IN  THE  COMPUTER  ROOM  WHICH  WILL  BE  POSTED  EVERY  MONDAY 

100  PR.  "***NQTE***  IF  YOU  HAVE  RUN  THIS  PROGRAM  BEFORE* 

YOUR  NAME  IS  ALREADY  ON  FILE  AMD  YOU  SHOULD  NOT  BE  RUNNING 
IT  AGAIN!  IF  THIS  IS  THE  CASE*  ESCAPE  NOW!" 

10  1 PR. 


SEE 

M 


THE 


no 

120 

130 

140 

150 

151 

152 
153 
160 

170 

171 

172 
180 
190 
200 
210 
220 


PR. 

PR. 

PR. 

PR. 

PR. 

PR. 

PR. 

LET 

PR. 

PR. 

IF 

PR. 

PR. 

PR. 

PR. 

PR. 

PR. 


PR.  " SUPPLY  THE  FOLLOWING  INFORMATIONS"  STATEMENTS  101-690 
"LAST  NAME-"*  ACCEPT  AC  1 ) 


"FIRST  NAME-":  ACCEPT  AC  2) 

"MIDDLE  INITIAL-":  ACCEPT  AC  3) 

"ADDRESS-":  ACCEPT  AC4) 

"CITY-"*  ACCEPT  YS 
"STATE-":  ACCEPT  NS 
"ZIP-":  ACCEPT  2$ 

A<5>=  YS+"  ••+NS+"  "+2S 
"PHONE  NUMBER-":  ACCEPT  AC  6) 

"SEX-":  ACCEPT  AC  7 ) 

COC  AC  7>*"M"*  0 ) OR  ICHCAC7)*"F" 

"VERY  FUNNY!"  GOTO  170 
"AGE-":  ACCEPT  BC21) 

"HIEGHTC  INCHES) -":  ACCEPT  BC22) 

"WEIGHT-":  ACCEPT  BC23) 

"COLOR  OF  HAIR  C BLONDE*  GRAY*  BROWN*  BLACK* RED) 
"COLOR  OF  EYES-":  ACCEPT  AC 9) 


INPUT  ALL  INFORMATION 
AND  ANSWERS  TO  QUES- 
TIONS 


0)  THEN  180 


ACCEPT  AC  8) 


5 


M • 


H • 


OR  ONE  ABOUT  THE  SAME 


P30  PH.  "HATE  YOUR  PERSONALITY  ON  A 1 THROUGH  5 BASIS.  L^T  1 UE  VERY  SHY 
5 BE  QUITE  OUTGOING.  TYPE  IN  THE  NUMBER  WHICH  YOU  DECIDE  ON." 

£3  l PR,  ACCEPT  A(  1 0 ) 

R/|U  IF  ICO<A<  7)  / MF"/0)  LET  R$="BOY"  GOTO  26C 

250  Ki="G I RL"  . „ 

260  PR.  PR*  "ANSWER  THE  FOLLOWING  QUESTIONS: 

270  PR*  PH* 

209  Pit.  "WOULD  YOU  LIKE  A TALLER  OR  SHORTER 
- F, 

HEIGHT?" 

290  PR.  ACCEPT  A( 11) 

300  PH.  "WOULD  YOU  LIKE  AN  OLDER  HR  YOUNGER 
»-  E AGE?" 

310  PR.  "-"SACCEPT  A(12) 

^/LnEH^hIcH  THE  NUMBt-.lt. 

PH!  "WULDC5.1UTUKE3SimE.)NE  WITH  INTEHESTS  SIMILAR  OH  DIFFERENT 

TO  YOUR  OWN?" 

• APPPPT  AC  14) 

"WHAT  CUL'JH  HAIR  WOULD  YOU  LIKE  ON  YOUR  ":RS!"  (BLONDE,  GRAY, 


jR$s'S  OR  ONE  ABOUT  THE  SAME 
YOU  WOULD  LIKE  IN  THE 


350 

PR. 

360 

PR. 

Lit  OWN/  1 

370 

PR. 

300 

PR. 

390 

PH. 

400 

PR. 

410 

PR. 

500 

PR. 

50  1 

PR. 

502 

PR. 

503 

PR. 

504 

PR. 

505 

PR. 

50  6 

PR. 

507 

PR. 

50  H 

PR. 

509 

PR. 

51  0 

PR. 

520 

PR. 

521 PR. 

522 

PR. 

532 

PR. 

533 

PR. 

540 

PR. 

541 

PR. 

545 

PR. 

546 

PR. 

P.M 


?•' 


••-":  ACCEPT  A(  1 7 ) , 

"WOULD  YOU  KISS  A ":R$:"  ON  YOUR  FIRST  DATE? 

jv  u t'n  • M — 11  j ACCEPT  A(  1 5 ) f 

AOO  PR.  "DO  YOU  USUALLY  GOT  TO  BED  BEFORE/  AFTER/  OR  AT  II 
• APfMrpT  AC  16) 

••  WE  COMPUTER  WILL  NOW  PRINT  A LIST  OF  DIFFERENT  HOBBIES.  ' 
"AND  INTFRESTS  WHICH  YOU  MIGHT  HAVE.  THERE  WILL  BE.  A NUMBER 
"BESIDE  EACH  ONE.  AFTER  THE  LIST  IS  THROUGH  BEING  PR  I NT ED/" 

"A  DASH  WILL.  HE  PRINTED.  PICK  OUT  ONE  OF  rrH^^nF^DE" 
"LIST  WHICH  INTERESTS  YOU/  TYPE  THE  NUM HB.R  WH 1.®  UE yj™ 
"IT/  AND  HIT  A RETURN.  ANOTHER  DASH  WIOL^EPRINIED.  YOU  ^ 
-MAY  DO  THIS  FIVE  TIMES  FOR  FIVE  DIFFERENT  I Nil E.RESTS  BUT/ 

"IF  YOU  WANT  TO  STOP  AFTER  JUST  TWO  OR  THREE/  JUST 
"HIT  A RETURN  WITHOUT  A NUMBER  AFTER  THE  DASH." 

"HERE  IS  THE  LIST.  " 

PH 

"1  -BASEBALL  8-  BASKETBALL  3 "FOOTBALL  OR  SOCCER  A-K>LF’' 
"5-HOCKEY  6-TENNIS  7-SWIMMING  8-BYCYCLING  9 -OUTDOORS  (CAMP-" 

" ING/  HIKING/  ETC.)"  n1,vct,,c  „ 

" 1 0 -BIOLOGY  11 -CHEMISTRY  12-MATHEMATICS  13-PHYSILS 
" 14-COMPUTERS  1 5-F.LF.CTRUNI  CS  16-MECHANICS" 

'20 -CLASS I CAL  MUSIC  21 -COUNTRY  -WESTERN  22-HARD  ROCK 

'30- ACTI^Mcf ' 3 1 -DANCING  32-BEADING  33-WRITINC,  3A- PHOTO GRAPHY" 
•35-SEWING  36-BASKET  WEAVING  37-EATING*" 


II  J 

It  i 

i 

It  < 
It  • 
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600  PH.  "i)Ki  INPUT  THE  NUMBERS  NOW*  " 

605  C = 26 

610  PH.  ACCEPT  W$ 

620  IF  WSh""  THEN  690 

630  IF  LENGTH  < W$> ) >2  PH.  "DAD  NUN"  G»)Tt.l  610 
650  D(C)=VAL<yS) 


660  IF  C=30  THEN  690 
670  C=C+1  (ill TO  610 
690  DIM  IS(30,25) 

700  IF  ICi)(A<7>  <"F"iO)  DR  IC0(  A(  7)  #’’G”#  0 > THEN  720 
710  11  PEN  ’159WR  /BUYS/ • FUR  INPUT  *3  GOTO  725 
720  OPEN  ' 1 59  WR  /GIRLS/’  FOR  I NPUT » 3 
725  INPUT  FHIJM  3j  C 


700-730 

OPEN  APPROPRIATE  DATA 
FILE  AND  READ  ALL  NAMES 


727 

728 

729 

730 

731 

732 

733 
73/1 

735 

736 

737 
738 

739 

749 

750 
760 
770 
780 
790 
795 
800 
M3  N DAY 
805  PR 


FOR  U=  1 TO  C 

INPUT  FROM  3*  1 1 (ION)  FUR  N=1  TO  25 
NEXT  U 
CLOSE  3 
FOR  U=  1 TO  C 

IF  LEFT(A( 1 ) > 3 ) =LKFT  < ISCU# 1>#3> 

I F LEFT (A(2)>2) «LEFT < I$(U>2),2) 

PR.  "NAME  ALREADY  ON  FILE*  ":C:" 

NEXT  U 

IF  I CO  ( A(  7 ) * "F"  i 0)  OR  IClJ(A(  7)  * "G"<0) 


THEN 
THEN 
ENTRY S' 


733  ELSE  735 

734  ELSE  735 
GOTO  800 


730-735 

CHECK  IF  NAME  IS 
ON  FILE  ALREADY 


□ PEN  * 1 59 WR  /BOYS/’  FOR  OUTPUT*  4 GOTO 

OPEN  * 1 59 WR  /GIRLS/’  FOR  OUTPUT*  4 

PRINT  ON  4*  C+l 

PR.  ON  4,  A(  I ) FOR  1 = 1 TO  16 

PR.  QN4*  13(1)  FOR  1=2  1 TO  23 

PR.  ON  4*  A ( 1 7 ) 

0(1)  FOR  1=26  TO  30 
4*  I$(U*N)  FOR  N= 1 TO  253 


THEN 

739 


738 


736-795 

IF  NAME  NOT  ON  FILE, 
OPEN  FILE  FOR  OUTPUT 
AND  ADD  NAME 


PR.  ON  4* 
C PRINT  IJN 
CLOSE  4 
PR.  "NAME 
PR.  PR i " 
IN  THE 
"GOOD 


FOR  U= 1 TO  C 


ON  FILE*  " :C+1 ENTRYS." 

REMEMBER  TO  SEE  THE  NOTICE 
COMPUTER  ROOM.  ” 

LUCK!"  END 


WHICH  WILL  BE  POSTED  NEXT 


SAMPLE  RUN  of  /DATE/ 


DATING  SERVICE  INSTRUCTIONS* 


I*  ANSWER  THE  QUESTIONS  IN  THIS-  PROGRAM  -AS- TRUTHFULLY 
AS  YOU  CAN*  THE  INFORMATION  YOU  SUPPLY  WILL  BE  STORED  IN  A CON- 
FIDENTIAL FILE* 

2*  WHEN  YOU  HAVE  RECEIVED  THE  MESSAGE  'NAME  ON  FILE*# 

YOU  CAN  BE  SURE  THAT  YOUR  NAME  AND  INFORMATION  HAVE  BEEN  SAVED* 

THAT  IS  ALL  YOU  HAVE  TO  DO* 

3*  COMPARISONS  ARE  RUN  ONCE  EACH  WEEK  ON  FRIDAY 
OR  SATURDAY • TO  FIND  OUT  IF  YOU  WERE  MATCHED  UP  WITH  ANYONE#  SEE  THE 
NOTICE  IN  THE  COMPUTER  ROOM  WHICH  WILL  BE  POSTED  EVERY  MONDAY* 

er|c  7 
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♦♦♦NOTE***  IF  YOU  HAVE  RUN  THIS  PROGRAM  BEFORE* 

YOUR  NAME  IS  ALREADY  ON  FILE  AND  YOU  SHOULD  NOT  BE  RUNNING 
IT  AGAIN!  IF  THIS  IS  THE  CASE*  ESCAPE  NOW! 

SUPPLY  THE  FOLLOWING  INFORMATION* 

LAST  NAME-BAY* *OY 
FIRST  NAME- AVERAGE 
MIDDLE  INI TIAL-F* 

ADDRESS -2020  ELM  STREET 
CITY -ANYWHERE 
STATE-PA. 

ZIP-15000 

PHONE  NUMBER-42 10000 
SEX -MALE 
AGE- 16 

HEIGHT  (INCHES) -63 
WEIGHT- 150 

COLOR  OF  HAIR  (BLONDE*  GRAY*  BROWN*  BLACK*RED) -BROWN 
COLOR  OF  EYES-BLUS 


RATE  YOUR  PERSONALITY  ON  A 1 THROUGH  5 BASIS.  LET  1 BE  VERY  SHY 
AND  5 BE  QUITE  OUTGOING.  TYPE  IN  THE  NUMBER  WHICH  YOU  DECIDE 


ON 


-A 


ANSWER  THE  FOLLOWING  QUESTIONS* 


WOULD  YOU  LIKE 
HEIGHT? 

-SAME  HEIGHT 
WOULD  YOU  LIKE 


A TALLER  OR 

AN  OLDER  OR 


SHORTER  GIRL* 

YOUNGER  GIRL* 


OR  ONE  ABOUT 
OR  ONE  ABOUT 


THE  SAME 

THE  SAKE  AGE? 


-OLDER 

RATE  THE  PERSONALITY  OF  THE  GIRL 
YOU  WOULD  LIKE  IN  THE 

SAME  MANNER  WHICH  YOU  DID  WITH  YOURSELF. 


TYPE  IN  THE  NUMBER. 


WOULD  YOU  LIKE  SOMEONE  WITH  INTERESTS  SIMILAR  OR  DIFFERENT 
TO  YOUR  OWN? 

-SIMILAR 

WHAT  COLOR  HAIR  WOULD  YOU  LIKE  ON  YOUR  GIRL 
(BLONDE*  GRAY* 

BROWN*  BLACK* RED)? 


"BLACK 

WOULD  YOU  KISS  A GIRL  ON  YOUR  FIRST  DATE? 

-YES 

DO  YOU  USUALLY  GO-  TO  BED  BEFORE*  AFTER*  OR  AT  11  P.M.? 

—AT  1 1 

THE  COMPUTER  WILL  NOW  PRINT  A LIST  OF  DIFFERENT  HOBBIES. 
AND  INTERESTS  WHICH  YOU  MIGHT  HAVE.  THERE  WILL  BE  A NUMBER 
BESIDE  EACH  ONE.  AFTER  THE  LIST  IS  THROUGH  BEING  PRINTED* 

A DASH  WILL  BE  PRINTED.  PICK  OUT  ONE  OF  THE  THINGS  IN  THE 
LIST  WHICH  INTERESTS  YOU*  TYPE  THE  NUMBER  WHICH  IS  BESIDE 
IT*  AND  HIT  A RETURN.  ANOTHER  DASH  WILL  BE  PRINTED.  YOU 
MAY  DO  THIS  FIVE  TIMES  FOR  FIVE  DIFFERENT  INTERESTS  BUT* 

IF  YOU  WANT  TO  STOP  AFTER  JUST  TWO  OR  THREE*  JUST 
HIT  A RETURN  WITHOUT  A NUMBER  AFTER  THE  DASH. 

HERE  IS  THE  LIST* 


i 
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1-BASEBALL  2-  BASKETBALL  3-FOOTBALL  OR  SOCCER  4-GOLF 
5-HOCKEY  6-TENNIS  7-SWIMMING  8-BlCYCLING  9-OUTDOORS  (CAMP- 
ING# HIKING#  ETC* ) 

10-BIOLOGY  11-CHEMISTRY  12 -MATHEMATICS  13-PHYSICS 
14-COMPUTERS  15-ELECTRONICS  16-MECHANICS 
20 -CLASS I CAL  MUSIC  21 -COUNTRY  -WESTERN  22-HARD  ROCK 
23 -POPULAR 

30-ACTING  31 -DANCING  32-READING  33-VRITING  34 -PHOTOGRAPHY 
35-SEWING  36-BASKET  WEAVING  37-EATING. 

OK#  INPUT  THE  NUMBERS  NOW* 

-2 

-6 

-14 

-22 

-37 

NAME  ON  FILE#  15  ENTRYS* 


REMEMBER  TO  SEE  THE  NOTICE  WHICH  WILL  BE  POSTED  NEXT 
MONDAY  IN  THE  COMPUTER  ROOM* 

GOOD  LUCK) 


SAMPLE  RUN  of  /COMPILER/ 


DATING  COMPILER#  VERS*  DEC*  1#  1971 


LAST  NAME-  SMITH 

FIRST  NAME-  BETSY 

SEX-  FEMALE 


NUMBER  OF  PEOPLE  COMPARED*  10 


THE  COMPUTER  FEELS  THAT  THE  FOLLOWING  PEOPLE  WOULD  MAKE 
A BIG  HIT  WITH  YOUl 

NOBODY 

THE  COMPUTER  FEELS  THAT  THE  FOLLOWING  PEOPLE  WOULD  MAKE 
A FAIRLY  BIG  HIT  WITH  YOUt 

NAME*  JIM  H*  JONES 

ADDRESSI  139  HART WOOD  DR* ' 

% PITTSBURGH#  PA*  15208 

PHONE  NUMBER » 731*8171 

EON*T  BE  TOO  SHOOK  IF  YOU  DIDN*T  GET  MATCHED  UP  WITH 
SOMEONE*  ANOTHER  RUN  WILL  BE  MADE  THE  END  OF  THE  WEEK 
AND  MAYBE  YOU  WILL  HAVE  BETTER  LUCK.  MEANWHILE# 

YOU  ARE  ALREADY  ON  FILE*  GOOD  LUCK  I 

er|c 
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LAGRANGIAN 


o 
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Interpolation/Eztrapolation 


On  page  3 the  simplest  case  (two  observations)  is  considered, 
and  you  are  shown  how  to  write  a linear  interpolation/extra- 
polation  program  (these  terms  are  explained  on  page  4) . 

You  will  then  be  asked  to  write  a quadratic  interpolation/ 
extrapolation  (page  5) . 

An  option  will  be  suggested  in  which  you  write  a version  of 
this  program  which  prints  out  the  coefficients  of  the  quad- 
ratic polynomial  (page  6)  . 

£ Finally,  you  will  write  the  nth  order  polynomial  interpolation/ 
extrapolation  program.  This  most  general  version  reads  n 
data  points  and  makes  it  possible  to  estimate  values  of  the 
dependent  variable  with  a polynomial  of  degree  n-1  (page  7)  . 

PROJECT  SOLO  / Ve.pt.  Compute X Science  / Untv.  o £ Vitt6buKgk(1  521 3) 

Module  0129  / Pxank  OUmbeUy  (PS) 
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INTERPOLATION  AND  EXTRAPOLATION 
USING  LAGRANGIAN  POLYNOMIALS 

Introduction 

There  are  many  real  world  mathematical  problems  in 
which  you  are  given  a table  relating  one  variable  to 
another.  This  table  often  comes  from  the  experimental 
work  of  an  engineer  or  scientist.  The  problem  is  that 
you  may  want  to  know  the  value  of  the  dependent  variable 
for  some  value  of  the  independent  variable  which  isn't 
included  in  the  table.  For  example,  Table  1 has  accel- 
eration figures  for  a Porsche  911S. 


V 

T 

0 

O 

• 

o 

10 

— 

20 

2.7 

30 

— 

40 

5.1 

50 

— 

60 

— 

The  Independent  vaalable 
l&  the  velocity  tohlch 
the  PoA.6c.ke  Aeache&  &n.om 
a standing  staAt  (zetio 
Table  1 20  2.7  m.p.k.). 

The  dependent  vaA.la.ble 
Is  T,  the  elapsed  time 
A.equlA.ed  to  Aeaeh  V , 
starting  at  zeAo 

v eloclty . 

Notice  that  elapsed  time  figures  are  missing  for  V = 10, 

V = 30,  V = 50,  and  V = 60.  (T  is  actually  missing  for  all 
values  of  V except  0,  20,  and  40.  ...  Think  about  it)  . 

For  purposes  of  comparison  with  other  sports  cars,  it 
might  be  important,  for  example,  to  know  the  times  for 
accelerating  from  zero  to  thirty  and  from  zero  to  sixty . 

The  solution  to  such  modern  problems  is  based  on  the  work  of 


3 

ERIC 


li 


2 


,xn'V 


an  18th  century  mathematician  named  Lagrange.  The  method  used  is 

called  "polynomial  interpolation! extrapolatio  n"  and  it  is  based 

on  the  fact  that  given  n points  (x2'y2^'  ••• 

in  the  xy  plane  there  is  one  and  only  one  polynomial  of  the 
ri“"l  n-2 

form  y = a^x  + a2X  + . . . + an_^x  + an  which  passes 
through  those  points. 

What  thi*  mean*  16 : given  the  n point6 
...  there  it>  one  and  only  one  polynomial  ofi  degree  n-1 

4uch  that 


V1  s a/x7n'^  a2xjn~2  + 
1/  v w-  7 . _ v n-2  , 
V2  ' a7x2  a2x2 


+ a 1x.1  + a 
n-1  7 n 

+ \-7x2  + an 


y = a.x  n~  * + a0K  n~2  + 
n 1 n In 


+ a + a 

n-1  n n 


The  prootf  o£  thii  fiact  i -6  too  involved  to  present  in 
thii  module.  Itf  you  are  interested,  you  can  fiind  a proofi 
in  "Elementary  Numerical  Analytic"  by  S.  V.  Conte,  McGraw- 
Hill  1965,  page  73. 


Using  the  Laqrangian  Polynomial 

In  brief , what  you  do  is  to  assume  that  the  dependent 
variable  y is  related  to  the  independent  variable  x by  the 
polynomial  of  order  n-1  (determined  by  the  data  that  you  have) 
for  all  values  of  x.  You  then  find  the  polynomial  (see  pgs.  4, 
6,8),  and  simply  evaluate  it  for  the  missing  values  of  x to 
complete  the  table.  For  example,  the  three  points  (0,0), 
(20,3.8)  and  (40,5.1)  determine  a second  degree  polynomial 
which  can  then  be  used  to  find  the  values  of  T corresponding 
to  V = 30,  and  V = 60.  What  Lagrange  did  was  to  develop  a 
method  for  finding  the  coefficients  a^,  ...,  an  of  the  needed 

polynomial,  given  the  points  (x1,y^),  ...,  (xn,yn)  . 

o 
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1.  The  Simplest  Case: 

Linear  Interpolation  and  Extrapolation 

Consider  two  points  in  the  x-y  plane  as  in  Figure  1. 


In  the  equation: 


l)  v= 


x “X, 


x2-  ■*  2 


y~  + 


X - X9 

yl 

XI  x2 


if  we  substitute  x^  for  x we  get  y = 0*y2  + l*y^  = 

On  the  other  hand,  setting  x equal  to  x2  gives  us 
y = l*y2  + 0*  yx  = y2 . 

But  if  we  take  the  original  equation  1)  and  combine  terms 
as  follows : 

2)  y = 


y2-yi 

X2-Xl 


X + 


x2  Y]_  - x. 


X, 


We  see  that  the  equation  has  a graph  which  is  a straight 
line  since  it  is  of  the  form  y = a^x  + a2.  (Be  sure  that  you 
see  how  equation  2)  follows  from  equation  1)  • What  happens  is 


that  all  terms  which  are  multiplied  by  x are  collected  and 
the  same  is  done  for  the  terms  which  are  not  multiplied  by  x.) 
Hence,  we  have  the  following  facts: 

1.  Equation  2 has  a graph  which  is  a straight  line. 

2.  The  points  (x^,y^)  and  (x2,y2)  are  on  that  line. 

3.  There  is  one  and  only  one  line  through  a pair 
of  points. 

Putting  these  together  we  get  that  2)  is  the  equation  of 
the  line  through  the  points  (x^yj.)  and  (x2,y2)  . 
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Projects 

1A.  Study  the  listing  of  the  interpolation  program  inter- 
action below  and  write  a program  like  the  one  that 
produced  the  listing. 


>RUN 


IN  PUT  X.  AND  V FOR  THE  FIRST  POINT 
?5 , 60 

INPUT  X AND  V FOR  THE  SECONV  POINT 

?10,  120 


INPUT  A VALUE  OF  X FOR  WHICH  VOU  WANT 
V TO  BE  ESTIMATE!? 

?15 

THE  EXTRAPOLATEV  VALUE  OF  V IS  180' 
FOR  X = 15 


NOTE:  When  an  ebtlmate  oh 

y lb  made  h°*  a value 
oh  x u)hlch  lb  between 
given  value 4 ojJ  x the 
pAocebb  lb  called  In - 
teApolatlo n;  l the 
value  o~^~x~lb  gA eaten, 
than  {oa  lebb  than ) 
all  o{  the  given  valueb 
oh  x the  pAocebb  lb 
called  extAapolatlo  n . 


Voua  pAogAam  bhould 
be  able  to  decide 
whetkeA  It  hab  been 
given  an  InteApolatlon 
oa  extAapolatlon  pAo- 
blem,and  u)A Ite  the 
' appAopAlate  mebbage. 


IB.  Use  your  program  to  find  the  missing  data  in  the 
below . 


tables 


TIME 

TEMPERATURE 

7 A.M. 

43 

10  A.M. 

- 

11  A.M. 

67 

YEAR  WORLD  POPULATION 
100  A.D.  137  million 

1000  A.D.  275  million 

2000  A.D. 


Vou  may  not  believe  the  Aebult  that  you  got  hoA  the 
population  oh  the  woAld  In  2000  A.D.  ( the  population  oh 
China  In  1971  lb  about  800 , 00  0 , 000  ) even  though  the  hi-QW leb 
hoA  100  A.D.  and  1000  A.D.  aAe  coAAect.  Thlb  demonbtAateb  the. 
hact  that  polynomial  InteApolatlon/ extAapolatlon  Involveb  an 
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a66umptton  that  may  not  be.  tfiue.^  - namzZy  that  the.  poZynomtaZ 
d.e.6  c.filbe.&  the.  function  &ofi  data  othe.fi  than  the.  gtven  data. 
AppafizntZy  uoofiZd  popuZatton  if>  not  a ZZntaK  fiunctto n ofi  ttme.. 

2.  QUADRATIC  INTERPOLATION  AND  EXTRAPOLATION 

In  the  same  way  that  two  points  determine  a line  (that 

is,  a polynomial  of  the  form  y = a^x  + a2 ) three  points 

2 

determine  a quadratic  polynomial  of  the  form  y — a^x  + 
a2x  + a3. 

Equation  3)  is  the  interpolation  formula  for  the 

quadratic  which  is  determined  when  three  points  (x^,y^) 

(x2,y2),  (x3,y3)  are  given. 

(x-  x.)  (x-  x,)  (x-  x,)  (x-  x3) 

3)  y = 2 + 1 y2 

(X;L  -x2)  (x1-x3)  (x2  -x1)  (x2  -x3) 

(X-  Xx)  (X-  X2) 

(x3  “X^)  (x3  -x2) 

Substitute  x^,  x2,  and  x3  for  x in  equation  3 and  then 

simplify  to  verify  that  the  three  given  points  lie  on  the 

curve  defined  by  the  equation.  Then  by  multiplication  and 

2 

combining  terms  convert  equation  3)  into  the  form  y = a^x  + 
a2  x + a3« 

You  should  get  expressions  for  a^,  a2,  and  a3  that 
involve  only  the  six  numbers  x^,  x2,  x3,  y^,  y2/  and  y3* 

* Extrapolation  is  more  likely  to  give  false  values  than 
interpolation . 


MORE  PROJECTS 


2A.  Write  an  interpolation/extrapolation  program  in  BASIC 
which  reads  in  three  (3)  data  points  (x1,y1)f  (x2,y2)f 
(x3,y3)  and  uses  a quadratic  polynomial  (degree  2)  to 
estimate  values  of  the  dependent  variable  y for  other 
values  of  the  independent  variable  x. 

2B.  Use  this  program  and  the  data  on  page  1 to  find  the 
"zero  to  thirty"  and  "zero  to  sixty"  times  for  a 
Porsche  911S. 

3.  PRINTING  OUT  THE  QUADRATIC  POLYNOMIAL 

(OPTIONAL) 

Write  a BASIC  program  that  reads  in  three  (3)  points 
and  prints  our  the  tozi t'ic-ie.ntA  of  the  quadratic  polynomial 
determined  by  them.  See  the  sample  output  below: 

>RUN 

WHAT  ARE  THE  X ANV  V COORDINATES  OF  THE  FIRST  POINT? 

70,2 

WHAT  ARE  THE  COORVINATES  OF  THE  SECOND  POINT? 

71.1 

ANV  THE  THIRD  POINT? 

72.2 

THE  QUADRATIC  IS 
I*X+2+- 2*X+2 
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4 . Nth  Order  Polynomial 
Interpolation  and  Extrapolation 

It  looks  like  the  same  reasoning  that  works  for  equations 
1)  and  3)  might  also  work  for  n points.  That  is,  it  may  be 
that  equation  4)  is  the  expression  for  the  one  and  only  poly- 
nomial of  degree  n-1  that  fits  the  n points  (x^  ,y^)  . . . (xn,yn) . 
n-1  term  product 

i N 

(x-x0)  (x-x-)  . . . (x-x  ) 

4)  y = i 2 a yi 

(Xj-Xj)  (Xj^  ,-x3)  . . . (x1-xn) 


+ 


(x-x^ 

<x2_x1> 


(x-x3)  ...(x-xn) 


(x2-x3) 


<x2-*n) 


+ 


• • • 


(x-x1)  (x-x2)  . . . (x-x  -) 

(xn-xl)  (xn_x2)  • • • (xn'xn-l> 


n 


Let's  look  more  closely  at  one  of  these  terms 
(x-x1)  (x-x2)  . . . (x-xi_1)  (x-xi+1) . . . (x-xn) 

(x^x^  (xi-x2)  . . . (xi~xi_1)  (xi“xi+i)  • • • (xi“xn)  1 


Notice  that  (x-x^)  is  missing  from  the  product  in  the 
numerator  and  (x^-x^)  is  missing  from  the  product  in  the 
denominator. 


o 
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This  term  is  equal  to  0«y^  for  and  x = xi»***xi_i' 
xi+l'  * * *xn  *that  is'  anY  of  the  9iven  x's  other  than  x^ 
and  is  1 *y^  for  x = x^. 

In  each  numerator  there  is  an  n-1  term  product  each 
term  of  which  is  of  the  form  (x-xi)  . If  such  a product  is 
expanded  it  turns  out  to  be  a polynomial  in  x of  degree  n-1. 
Now  each  term  in  the  sum  (each  term  of  equation  4)  is 
therefore  a polynomial  of  degree  n-1.  Furthermore, 


is  a constant 


and  a constant  times  a polynomial  is  a polynomial  of  the  same 
degree.  Finally  the  entire  right  hand  side  of  4)  is  the  sum 
of  n polynomials  of  degree  n-1.  But  the  sum  of  polynomials 
of  degree  n-1  is  also  a polynomial  of  degree  n-1. 

Hence,  just  as  for  the  line  and  the  quadratic  we  have. 

1)  Equation  4)  is  a polynomial  of  degree  n-1 

2)  The  points  (x±,yi)  . . . (xn,yn)  all  "satisfy" 
equation  4. 

3)  There  is  one  and  only  one  polynomial  of  degree 
n-1  that  is  satisfied  by  n points. 

Hence  4)  is  the  polynomial  of  degree  n-1  that  fits 

the  points . 
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EVEN  MORE  PROJECTS 

4A.  Write  a program  in  BASIC  which  reads  a number  nf  then 
reads  n data  points  (xy  pairs)  and  uses  a polynomial 
of  degree  n-1  to  extrapolate  or  interpolate. 

4B.  Try  your  program  on  the  following  population  data  to 

see  whether  you  get  better  results  than  you  did  in  IB. 


POPULATION  OF 
YEAR  THE  WORLD 


2000  B.C. 

108  million 

1000  B.C. 

120  million 

100  A.D. 

137  million 

1000  A.D. 

275  million 

1960  A.D. 

3,003  million 

2000  A.D. 

• 

5A.  See  cover  picture  for  this  problem.  A UFO  has  been 
sighted  in  the  range  0<x<9.  The  cover  picture  shows 
five  "sightings"  at  points  marked  Assume  this 

curve  is  the  path  through  space  of  an  alien  UFO. 

Have  the  computer  output  "prediction"  points  (0 ) 
which  indicate  where  the  saucer  can  be  intercepted 
for  X = 9,  9.5,  10,  10.5,  11,  11.5,  and  12. 

5B.  Draw  your  own  "smooth"  UFO  curve,  and  experiment  to 
see  if  increasing  the  number  of  "sighting"  points  on 
the  left  Slide  of  the  screen  helps  you  better  predict 
the  path  of  the  UFO  on  the  right  side  of  the  screen. 
(You'll  have  to  draw  the  entire  path,  and  then  pretend 
you  only  have  data  for  the  left  half.) 


HINT: 


This  curve  is  best  fitted  with 
a 5th  degree  polynomial  since 
it  "cuts"  a straight  line  five 
times.  Therefore  six  "sighting" 
points  are  needed . 


o 
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The  following  is  a solution  program  and  run  for  the 


problem  2 A 


JAN  11  12(24  /LAG1/ 


5 PRINT  "WHAT  ARE  THE  X AND  Y VALUES  FOR  THE  FIRST  POINT?" 

6 INPUT  X1#Y1 

10  PRINT  "X  AND  Y VALUES  FOR  THE  SECOND  POINT?" 

11  INPUT  X2»Y2 

15  PRINT  "FOR  THE  THIRD  POINT?" 

16  INPUT  X3»Y3 

19  PRINT  "INPUT  A VALUE  OF  X FOR  WHICH  YOU  WANT  Y TO  BE  ES 

20  INPUT  X 

30  P»Yl*CCX-X2WX-X3>>/<<Xl-X2>*CXl-X3>> 

40  P»P+Y2*<  CX-X1 >*<X-X3> >/< CX2-X1 >*CX2-X3>  > 

50  P»P*Y3*< CX-X1 >*<X-X2> >✓< CX3-X1 >*CX3-X2> ) 

60  PRINT  "FOR 
70  END 


>RUN 


WHAT  ARE  THE  X AND  Y VALUES  FOR  THE  FIRST  POINT? 

720*50 

X AND  Y VALUES  FOR  THE  SECOND  POINT? 

730*40 

FOR  THE  THIRD  POINT? 

740*60 

INPUT  A VALUE  OF  X FOR  WHICH  YOU  WANT  Y TO  BE  ESTIMATED 
?45  j 

FOR  X«  45  Y»  81*25 


I 
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The  following  is  a solution  program  and  run  for  the 
problem  3A. 


JAN  11  12S27  /LAG2/ 


10  PRINT  "WHAT  ARE  THE  X AND  Y COORDINATES  OF  THE  FIRST  POINT?" 

11  INPUT  XI #Y1 

20  PRINT  "WHAT  ARE  THE  COORDINATES  OF  THE  SECOND  POINT?" 

21  INPUT  X2#Y2 

30  PRINT  "AND  THE  THIRD  POINT?" 

31  INPUT  X3#Y3 

40  LET  A«Y1/CCX1-X2)*CXI»X3)> 

50  LET  A«A«T2/< (X2-X1  >*(X2-X3> >' 

60  LET  A-A«*Y3/<CX3-Xl>*CX3-X2>> 

70  LET  B«-<Y1*<X2*X3>/CCXI-X2>*<X1-X3>>> 

80  LET  B»B-(Y2*(Xl’OC3>/(<X2-Xl>*<X2-X3>>> 

90  LET  B»B-CY3*CX1^X2)/CCX3-XI)*CX3-X2))) 

100  LET  C«X3*X2*Yl/CCXl-X2)*CXl-X3>) 

110  LET  C-C<*X1*X3*V,2/(<X2-X1  >*<X2-X3>> 

120  LET  C*C+Xl*X2*Y3/<  CX3-XI  )*CX3*X2)  ) 

130  PRINT  "THE  QUADRATIC  IS" 

140  PRINT  At"*Xt2«-"tBI"*X«*"tC 
150  END 


>RUN 

VHAT  ARE  THE  X AND  Y COORDINATES  OF  THE  FIRST  POINT? 
?0»2 

VHAT  ARE  THE  COORDINATES  OF  THE  SECOND  POINT? 

?1#0 

AND  THE  THIRD  POINT? 

?2#2 

THE  QUADRATIC  IS 
2*Xt2*,-4*X^  2 


> I 
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The  following  is  a solution  program  and  run  for  the 
problem  4A. 


JAN  11  12*29  /LAG3/ 


10 

20 

21 

25 

26 
28 
30 
40 
50 
60 
70 
80 
90 
100 


DIM  XC20  ) #Y<20)  #B<20) 


PRINT 

INPUT 

PRINT 

INPUT 

PRINT 


••HOW 

N 

••FOR 


MANY  DATA  POINTS  (COORDINATE  PAIRS)  DO  YOU  HAVE?” 


WHAT  VALUE  OF  X DO  YOU  WANT  Y TO  BE  ESTIMATED?** 


XI 

••NOW 


INPUT*')N1**X 
FOR  1*1  TO  N 
INPUT  XCI >#Y(I) 

NEXT  I 


Y PAIRS  (DATA  POINTS )M 


P«0 

FOR  K» 1 
B(K)*I 
FOR  J*1 
IF  J*K 


TO  N 


TO  N 
THEN  120 

110  BCK)«B<K)*<<X1-X(J))/CXCK)-XCJ))) 
120  NEXT  J 
130  P»P4BCK)*YCK) 


140  NEXT  K 

150  PRINT  **FOR  X***IX1 1"Y»**)P 
160  END 


>RUN 

HOW  MANY  DATA  POINTS  (COORDINATE  PAIRS)  DO  YOU  HAVE? 
?6 

FOR  WHAT  VALUE  OF  X DO  YOU  WANT  Y TO  BE  ESTIMATED? 
?60 

NOW  INPUT  6 X Y PAIRS  (DATA  POINTS) 

?0#0 

?30#4*3 

?40#5»7 

?70»31 

?80»42 

?90»55 

FOR  X*  60  Y*  20*54547619 
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W This  module  will  concern 
itself  with  reflection,  refrac- 
tion, and  the  physics  of  curved 
mirrors  and  lenses . There  are 
three  parts  to  the  module.  The 
first  two  parts  require  that 
you  solve  problems  generated  by 
programs  already  stored  in  the 
computer.  The  third  part  re- 
quires that  you  write  your  own 
program. 


Figure  1.  Location  of  an  Image  by  Ray  Tracing 


Part  1 - REELECTION 

First  we  shall  examine  the  formation  of  images  by  curved  mirrors. 
The  laws  of  reflection  state:  (1)  the  incident  ray,  the  reflected 
ray,  and  the  normal  to  the  reflecting  surface  lie  in  the  same  plane; 
and  (2)  the  angle  of  incidence  is  equal  to  the  angle  of  reflection. 
You  are  no  doubt  familiar  with  the  images  formed  by  plane  mirrors, 
such  as  the  one  on  your  medicine' cabinet  at  home.  The  image  of  an 
object  in  a plane  mirror  is  a virtual  image.  It  is  the  same  size 
as  the  object,  erect,  reversed  right  and  left,  and  as  far  behind 
the  mirror  as  the  object  is  in  front  of  the  mirror. 

The  case  is  slightly  different  when  we  consider  curved  mirrors. 
Concave  mirrors  cause  light  to  converge.  Different  types  and  sizes 
of  images  may  be  formed  by  concave  mirrors  depending  upon  the  dis- 
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tance  of  the  object  from  the  mirror.  Concave  mirrors  vary  in  size 
from  an  ordinary  small  mirror  to  the  huge  200-inch  reflector  on 
Palomar  Mountain,  in  California. 

We  can  find  the  size  and  location  of  an  image  due  to  an  object 
placed  at  a finite  distance  from  a concave  mirror  by  ray  tracing  as 
shown  in  Figure  1.  All  parallel  rays  as  shown  are  brought  to  a com- 
mon focus  at  F.  This  point  F is  called  the  focal  point  of  the  mir- 
ror and  the  distance  FA  is  called  the  focal  length  of  the  mirror. 

We  measure  the  distances  So  and  Si  from  the  focal  point  to  the  object 
and  image  respectively.  If  we  call  Ho  and  the  height  of  the  ob- 
ject and  the  image,  it  can  be  shown  by  similar  triangles  that: 

Hi/Ho=£/So"Si/f 

using  simple  algebra  it  can  be  shown  that: 

v„-f! 

The  difference  between  a real  image  and  a virtual  image  is  that 
there  may  be  no  light  passing  through  a virtual  image,  but  the  light 
is  sure  to  pass  through  a real  image,  and  a photograph  can  be  made 
by  placing  the  film  at  the  image.  Whenever  the  object  is  placed 
closer  to  the  mirror  than  its  focal  length,  the  image  formed  is  vir- 
tual. Whenever  the  object  is  placed  beyond  the  focal  length  of  the 
mirror,  the  image  formed  is  real.  But  whenever  the  object  is  placed 
at  exactly  the  focal  length  from  the  mirror,  no  image  is  formed. 

It's  Problem  Solving  Time 

After  studying  the  sample  run  on  page  5,  logon  the  computer, 
enter  NBS,  and  then  type: 

RUN  159AJS  /MIRROR/ 

When  you  finish  your  computer  run,  go  to  part  2 of  this  module. 
Be  sure  to  save  your  output  from  part  1 . 


Part  2 - INDEX  OF  REFRACTION 

The  index  of  refraction  of  a.  material,  for  which  we  use  the  sym- 
bol n,  is  defined  as  the  ratio  of  the  speed  of  light  in  a vacuum  to 
the  speed  of  light  in  the  substance  under  consideration.  Since  the 
speed  of  light  in  air  is  only  slightly  different  from  the  speed  of 
light  in  a vacuum,  for  convenience  we  set  the  index  of  refraction  of 
air  equal  to  unity. 

In  1621,  Willebrord  Snell  discovered  a relationship  between  the 
index  of  refraction  of  a material  and  the  angles  of  incidence  and 
refraction  of  light.  This  mathematical  relationship,  known  as  Snell's 
law,  is: 


n1  sin  02=1*2  s^n  02 
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where  0i  and  02  are  defined  as  in  Figure  2.  The  index  of  refrac 
tion  of  a material  may  also  be  found  in  a table  such  as  the  one 


below. 


The  Indices  of  Refraction  of 


Some 

Common  Materials 

1.11 

liquid  hydrogen 

1.22 

liquid  oxygen 

1.  33 

water 

1.38 

liquid  chlorine 

1.47 

glycerin 

1.54 

salt 

1.60 

quartz 

1.66 

liquid  bromine 

1.93 

liquid  sulfur 

2.10 

liquid  tin 

2.42 

diamond 

2.60 

lead 

3.34 

iodine 

4.22 

sodium 

LENSES 

Lenses  are  instruments  which  use  the  laws  of  refraction  to  form 
images  of  objects.  We  shall  be  concerned  with  converging  lenses , 
that  is , lenses  which  bring  parallel  light  incident  upon  them  to  a 
commom  focus  (the  rays  of  light  converge  at  a point).  As  in  the. 
case  of  the  curved  mirrors  we  shall  call  this  point  the  focal  point, 
and  the  distance  from  the  lens  to  this  point  the  focal  length  of  the 
lens. 


If  a lens  is  thin  compared  to  its  focal  length,  no  matter  which 
side  of  the  lens  the  light  enters,  the  focal  length  is  always  the 
same.  This  result  is  also  predicted  by  an  application  of  Snell's 
law  from  which  it  can  be  shown  that: 

l/f=  (n-l)  4 4 ) 

R1  r2 
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where  Rj  and  R2  are  the  radii  of  the  opposing  surfaces  and  n is  the 
relative  index  of  refraction  for  light  passing  from  any  medium  into 
the  lens.  This  equation  is  known  as  the  "lensmaker's  formula".  We 
can  show  that  interchanging  and  R2>  which  is  the  same  as  turning 
the  lens  over,  has  no  effect  on  the  focal  length  of  the  lens. 

It*  s Problem  Solving  Time 

To  access  the  next  practice  program  first  enter  NBS , and  then 

type: 

RUN  159AJS  /REFRACT/ 

Before  using  the  computer  study  the  sample  RUN  of  /REFRACT/  shown  on 
page  6.  When  you  finish  your  computer  run,  go  to  Part  3 of  this 
module,  being  sure  to  save  your  output  from  Part  2. 


Part  3 - YOU'RE  ON  YOUR  OWN 

There  is  no  "pre-writ ten"  program  on  file  for  Part  3.  You  should 
write  your  own  program (s)  for  the  computer  (or  use  the  desk— calculator 
direct  mode)  to  complete  the  following  table: 


Image 

distance 

(cm. ) 

Object 

distance 

(cm. ) 

Focal 

length 

VHo 

82 

9 

30 

30 

82 

2 

86 

43 

100 

67.8 

53 

16.3 

15.5 

3.75 

39. 3 

43 

If  you  have  any  difficulties  or  questions  concerning  this  module, 
please  see  your  teacher.  Also,  if  you  have  any  suggestions  for  im 
proving  this  module  please  let  him  (or  her)  know. 
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>RUN  159AJS  /MIRROR/ 

THIS  PROGRAM  WILL  DEAL  WITH  THE  PHYSICS  0F  CURVED  MIRR0RS. 

THE  F0RMULAS  WHICH  Y0U  WILL  NEED  MAY  BE  F0UND  IN  THE  M0DULE . 

PR0BLEM  1 

THE  F0CAL  LENGTH  0F  A CURVED  MIRR0R  IS  F0UND  T0  BE  1.34E+1CM. 
IF  AN  0BJECT  3.72E+1CM.  HIGH  IS  PLACED  7.71E+1CM.  AWAY  FR0M 
THE  MIRR0R.  FIND  THE  P0SITI0N  AND  THE  HEIGHT  0F  THE  IMAGE 
0F  THE  0BJECT . FIRST  TYPE  IN  THE  IMAGE  DISTANCE  FR0M  THE 
MIRR0R  IN  CM. 

?@NBS 

VER.  MAR  10  8:07 

>PRINT  37.2*13.4/63.7 

7.825431711 

>PRINT  7.  825/37. 4+2*13.4 
2. 818682796 

>EXIT 
?16 . 2 
RIGHT 

N0W  TYPE  IN  THE  HEIGHT  0F  THE  IMAGE  IN  CM. 

?7. 825 
G00D 

W0ULD  Y0U  LIKE  T0  TRY  AN0THER  PR0BLEM  LIKE  THIS? 

?N0 

0.K.  r H0W  AB0UT  TRYING  A PR0BLEM  LIKE  THIS. 

PR0BLEM  2 

THE  IMAGE  0F  AN  0BJECT  PLACED  4.65E+1CM.  AWAY  FR0M  A CURVED 
MIRR0R  IS  F0UND  T0  BE  L0CATED  3.77E+1CM.  AWAY  FR0M  THE  MIRR0R. 
CALCULATE  THE  F0CAL  LENGTH  0F  THE  MIRR0R. 

?@NBS 

VER.  MAR  10  8:07 

>PRINT  SQRT  (46.5*37. 7) 

41. 86943993 

>EXIT 

?41.87 

RIGHT 

IS  THE  IMAGE  REAL  0R  VIRTUAL? 

?REAL 

THAT'S  RIGHT 

W0ULD  Y0U  LIKE  T0  TRY  AN0THER  PR0BLEM  LIKE  THIS? 

?N0 

CHECK  T0  MAKE  SURE  Y0U  UNDERSTAND  THE  RELATI0NSHIPS  INV0LVED. 
SH0W  THIS  T0  Y0UR  TEACHER.  G00D  BYE. 


>RUN  159AJS  /REFRACT/ 

THIS  PR0GRAM  WILL  DEAL  WITH  REFRACTI0N  AND  THE  PHYSICS  0F 
THXN  LENSES* 

THE  F0RMULAS  WHICH  Y0U  WILL  NEED  MAY  BE  F0UND  IN  THE 
M0DULE . 

CALCULATE  THE  INDEX  0F  REFRACTI0N  0F  A MATERIAL 
IF  LIGHT  INCIDENT  UP0N  IT  AT  AN  ANGLE  0F  2.41E+1  DEGREES 
IS  REFRACTED  T0  AN  ANGLE  0F  1.62E+1  DEGREES 
TYPE  IN  THE  INDEX  0F  REFRACTI0N  0F  THE  MATERIAL. 

?@NBS 

VER.  MAR  10  8j  07 

>PRINT  SIN  (24. 1/57.  4 ) /SIN  (16 . 2/57. 4) 

1.463684021 

>EXIT 

?1.46 

0.K. 

D0  Y0U  THINK  THAT  THIS  MATERIAL  MIGHT  BE  0NE  0F  TH0SE  LISTED 
IN  THE  M0DUIE  0R  S0ME  0THER  MATERIAL?  TYPE  IN  THE  NAME  0F  THE 
MATERIAL  0R  '0THER'  . 

? LIQUID  CHL0RINE 

N0,  MY  CALCULATI0NS  INDICATE  THAT  THE  MATERIAL  C0ULD  BE  GLYCERIN. 
W0ULD  Y0U  LIKE  T0  TRY  AN0THER  PR0BLEM  LIKE  THIS? 

?N0 

N0W  WE  WILL  L00K  AT  THIN  LENSES. 

USING  THE  'LENSMAKER'S  F0RMULA'  CALCULATE  THE  F0CAL  LENGTH  0F  A 
THIN  LENS  MADE  FR0M  GLASS  (N=1.5)  IF  THE  RADII  0F  THE  0PP0SING 
SURFACES  ARE  20  AND  25CM. 

TYPE  IN  THE  F0CAL  LENGTH  0F  THE  LENS  IN  CM. 

? 0MPC 

VER.  MAR  10  8:07 

>PRINT  1000/45.0 

22.22222222 

>EXIT 
?22. 22 
THAT 1 S RIGHT 

W0ULD  Y0U  LIKE  T0  TRY  AN0THER  PR0BLEM  LIKE  THIS? 

?YES 

USING  THE  'LENSMAKER’S  F0RMULA'  CALCULATE  THE  F0CAL  LENGTH  0F  A 
THIN  LENS  MADE  FR0M  GLASS  (N=1.5)  IF  THE  RADII  0F  THE  0PP0SING 
SURFACES  ARE  30  AND  5 CM. 

TYPE  IN  THE  F0CAL  LENGTH  0F  THE  LENS  IN  CM. 

?8. 57 
G00D 

W0ULD  Y0U  LIKE  T0  TRY  AN0THER  PR0BLEM  LIKE  THIS? 

?N0 

0.K.  N0W  TRY  Y0UR  HAND  AT  WRITING  A PR0GRAM  T0  S0LVE  THE  PR0BLEMS 
IN  THE  M0DULE. 

STUDY  HARD  F0R  THAT  TEST  COMING  UP. 

0H  YES , ARNIE  ALLDERDICE  SAYS  'G00D  LUCK’. 

SH0W  THIS  T0  Y0UR  TEACHER.  G00D  BYE. 


-COPY  /INDEX/  TO  TPT 
Wit 

LIQUID  HYDROGEN 
I .22 

LIQUID  OXYGEN 

1.33 
WATER 
1*38 

LIQUID  CHLORINE 
1. 47 

GLYCERIN 

1.54 

SALT 

1.60 

QUARTZ 

1.66 

LIQUID  BROMINE 
1.93 

LIQUID  SULFUR 
2.10 

LIQUID  TIN 
2.42 
DIAMOND 
2*60 
LEAD 

3.34 
IODINE 
4*22 

SODIUM 
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MODULES  FOR 


These  modules  cure  intended  for  use  in  connection  with  the 
experimental  laboratory  of  an  advanced  placement  chemistry  course 
(12th  Grade).  They  are  designed  to  allow  students  to  read  in  measure* 
ments , have  the  calculations  done  for  them,  and  the  results  dis- 
played in  graphical  fashion.  It  is  intended  that: 

1 . Students  will  be  better  able  to  concentrate  on  the  exper- 
imental phase  of  their  lab  work. 

2.  They  will  be  encouraged  to  carry  out  several  runs  of 
the  experiment,  since  calculations  can  be  done  swiftly 
at  another  time. 

3.  When  they  write  a similar  program  for  another  experiment 

in  the  book  (or  an  improvement  on  this  one )»  they  , will . f ind 
it  a valuable  new  way  to  organize  their  understanding  of 
chemical  theory.  ■'  - " 

Summary  of  Relevant  Information: 

Text  Reference 

Access  Code 


Module 

Subject 

Lab.  Manual* 

Text** 

0124 

Stoichiometry 

Exp.  9 

103-108 

0125 

Gram-Equiva- 
lent, Mass  of 
Magnesium 

Exp.  13 

121-123 

0126 

Molecular  Mass 
from  Freezing 
Point  Lowering 

Exp.  16 

207-221 

RUN  159DK  /SPEX9/ 
RUN  159DK  /SPEX13/ 


RUN  159DK  /SPEXl 6/ 


Suggested  Use  of  the  Modules: 

(a)  Students  may  use  those  programs  already  on  file  as  "data- 
analysis" tools,  and  use  the  output  as  an  integral  part  of  their 
final  ’.lab  report. 

(b)  Students  may  be  invited  (or  assigned)  to  create  similar 
programs  for  other  experiments  and/or.  improve  the  programs  on  file 

On  the  following  pages  you  will  find  sample  runs  of  each  pro- 
gram. A flowchart  of  the  program  /SPEXl 6/  given  and  the  listing 
which  follows  it  shows  the  actual  statements  and  programming 
details . The  other  programs  are  shorter  than  /SPEXl 6/  and  can  be 
programmed  using ; the  same  techniques . • ; • V 


* Sienko,  Michell  J.  and  Robert  A.  Plane  / Experimental  Chemistry 
3rd  Ed  v j, (Laboratory  Manual ) , McGraw-Hill . N . Y. ~ 1966 . ^ 

**Sienko,  Michell  J.  and  Robert  'A.  Plane,  Chemistry , 3rd  Ed . , 
McGraw-Hill , N . Y v,  :1966>; 


PROJECT  SOLO  / Dipt.  o&  Computer Stlence  / UiiLv  . o { Piiti biug h ( 7 5273  ) 
Module*  *0 124-6  / Volotuu  Kublak(T)  / Joel  Betiez (S ) *;  C.,/-  - 


o 

ERIC 


2 


EXPERIMENT  9l  STOICHIOMETRY 


✓DATA\ 


PART  Al  POTASSIUM  CHLORATE 

LIST  THE  FOLLOW  I NQ  IN  GRAMS. 

MASS  OF  TEST  TUBE  PLUS  MN-08lf£l  .8g^ 

MASS  OF  TEST  TUBE#  MN-02,  ANDVTTTTffisi  UMCHUtf^TE  II 
MASS  OF  TEST  TUBE,  MN-02,  AND  RES  I DUE/^B 

PART  Bl  UNKNOWN  MIXTURE 

LIST  THE  FOLLOWING  IN  GRAMS • 

MASS  OF  TEST  TUBE  PLUS  MN-08C7»j 
MASS  OF  TEST  TUBE,  MN-02#  AND  UNKNOWN id 
MASS  OF  TEST  TUBE,’  MN02,  AND  RESIDUEl^rS 


/RESU 

PART  Al  POTASS 

MASS  (IN  GRAMS)  OF  OXYGEN  LOST 
MASS  (IN  GRAMS)  OF  K-CL  (RES IDU 
NUMBER  OF  GRAM-ATOMS  OF  OXYGEN 
NUMBER  OF  MOLES  OF  K-CL 
NUMBER  OF  GRAM-ATOMS  OF  K IN  OR 
NUMBER  OF  GRAM-ATOMS  OF  CL  IN  0 
NUMBER  OF  GRAM-ATOMS  OF  0 IN  OR 

SIMPLEST  FORMULA  OF  POTASSIUM  C 
PART  Bl  UNKN 

MASS  (IN  GRAMS)  OF  UNKNOWN  MI  XT 
MASS  (IN  GRAMS)  OF  OXYGEN  LOST 
NUMBER  OF  GRAM-ATOMS  OF  OXYGEN 
NUMBER  OF  MOLES  OF  K-CL-03  DECO 
MASS  (IN  GRAMS)  OF  K-CL-03  IN  0 

PER  CENT  BY  MASS  OF  K-CL-03  IN 

DO  YOU  HAVE  ANOTHER  SET  OF  DATA 

GOODBYE  FOR  NOW 


SAMPLE  RUNS  * 

/SPEX9/  ■ ■ 

/SPEXI3/ 

^BCeD>UMBERS  ARE 
TYPED  IN  BY  STUDENT, 


EXPERIMENT  I3l  GRAM- EQUIVALENT  MASS  OF  MAGNESIUM 


DATA 

FIRST  SAMPLE 


TYPE  THE  MASS  OF  THE  MAGNESIUM  ( IN  GRAMS  > lC«023§ 
VOLUME  OF  HYDROGEN  EVOLVED  (IN  MILLILITERS) 
DIFFERENCE  IN  WATER  LEVELS  (IN  MILLIMETERS) 
TEMPERATURE  OF  WATER  (IN  DEGREES  CENTIGRADE)! 
AMBIENT  BAROMETRIC  PRESSURE  (IN  MILLIMETERS)! 


DATA 

SECOND  SAMPLE 


TYPE  THE  MASS  OF  THE  MAGNESIUM  ( IN  GRAMS  ) If. 020 )Jj 
VOLUME  OF  HYDROGEN  EVOLVED  (IN  MILLILITERS)  I 
DIFFERENCE  IN  WATER  LEVELS  (IN  MILLIMETERS)  020^ 
TEMPERATURE  OF  WATER  (IN  DEGREES  CENTIGRADE)  id  i 

AMBIENT  BAROMETRIC  PRESSURE  (IN  MILLIMETERS) l^ff. 

RESULTS 

FIRST  SAMPLE 

(G  EQUIVALENT  OF  WATER  COLUMN  I 39.33883529 
TOTAL  PRESSURE  IN  GAS  SAMPLE  I 692.36 1 7647 
PARTIAL  PRESSURE  OF  H2  I 669.1394436 

VOLUME  OF  HR  AT  STP  I 20.5009841 

MOLES  OF  H8 
MOLES  OF  H*  REDUCED 


SECOND  SAMPLE  UNITS 
38.23529418  MM. 

693.4647059  MM. 

671.9808335  MM. 

19.53855694  ML* 

I 9. I52225046E-04  8.722570063E-04 

I 1 •830445009E-03  1 . 74451401 3E-03 


GRAM-EQUIVALENTS  MG  OXIDIZED  t . I .03044 5009E-03  1 .7445I40I3E-03 

MASS  OF  1 GRAM-EQUIVALENT  MG  I 12.83040800  II  .86576883  TO  AMS 

AVERAGE  18*35208846  GRAMS /GRAM-EQUIVALENT 

CONCLUSION  • 

CONGRATULATIONS  I ANOTHER  SUCCESSFUL  EXPERIMENT  '[i;- 


O 
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lo 
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•SAMPLE  RUN  OF  /SPEX16/ 


CIRCLED  NUMBERS  ARE  TYPED  IN  BY  STUDENT. 


PURE  NAPHTHALENE 

WHAT  WAS  THE  NASS  OF  THE  PAPER  (IN  0RAMS)7(.9B5  ' 

MASS  OF  NAPHTHALENE  PLUS  PAPER  (IN  GRAMS) 7^0^ 

INCLUDING  THE  INITIAL  READING* 

HOW  MANY  TEMPERATURES  DID  YOU"  REC0RD7QjL^ 

WHAT  WAS  THE  INITIAL  TEMPERATURE^  IN  • C) 

WHAT  WAS  THE  END  TEMPERATURE^ 

WHAT  WAS  THE  3RD  TEMPERATURE7 

WHAT  WAS  THE  4TK  TEMPERATURE' 

WHAT  WAS  THE  51H  TEMPERATURE^ 

WHAT  WAS  THE  61H  TEMPERATURE7Q9. 

WHAT  WAS  THE  7TH  TEMPERATURE7/9V 

WHAT  WAS  THE  8TK  TEMPERATURETQS^ 

WHAT  WAS  THE  9TK  TEMPERATURE7 

WHAT  WAS  THE  10TH  TEMPERATURE7/^^? 

WHAT  WAS  THE  11 TH  TEMPERATURE7/75. 

NAPHTHALENE  AND  SULPHUR 

WHAT  WAS  THE  MASS  OF  THE  PAPERdN  PHAMS)  7^98  5, 
MASS  OF  THE  SULPHUR  AND  PAPER  (IN  GRAMS) 7lS7o( 


INaUDING  THE  INITIAL  READING* 

HOW  MANY  TEMPERATURES  DID  YOU  RECORD^V/ 

WHAT  WAS  THE  INITIAL  TIMPERATUR^IN  *C)  % 

WHAT  WAS  THE  END  TEMPERA TURE7/T8.  6j 

WHAT  WAS  THE  3RD  TEMPERATURE) 

WHAT  WAS  THE  ATH  TEMPERATURE) 

WHAT  WAS  THE  STH  TEMP EAATURE7f 

WHAT  WAS  THE  61H  TEMPERATURE7  (fCi  6j 

WHAT  WAS  THE  7TH  TEMPERATURE7^7 6.J 

WHAT  WAS  THE  STH  TEMPERATURE7Q6d^ 

WHAT  WAS  THE  9TH  TEMPERATURE/75.- 


€? 


o 

ERsLC 


TIME- TEMPERATURE  GRAPH  OF  COOLING  NAPHTHALENE 


TEMP. 

•C 

90 

69 
66 

67 
86 

65 
84 
83 
86 
81 
60 
T9 
78 
77 
76 
75 
74 
73 
72 
71 

70 
69 

68 
67 

66 
65 


3 4 5 6 

TIME-MINUTES 


10 


11 


THE  PURE  NAPHTHALENE  IS  REPRESENTED  BY  THIS  SYMBOL!  • 

THE  SULPHUR  SOLUTION  IS  REPRESENTED  BY  THIS  SYMBOL!  ♦ 

THE  INTERSECTION  IS  THIS  SYMBOL!  * 

FROM  THE  ABOVE  GRAPH. 

ESTIMATE  THE  FREEZING-POINT  OF  THE  PURE  NAPHTHALENE!  79.8 
ESTIMATE  THE  FREEZING-POINT  OF  THE  SULPHUR  SOL UTICN I 76.6 

FREEZING-POINT  OF  PURE  NAPHTHALENE  I 79.8  *C 

FREEZING-POINT  OF  SOLUTION  • 76.8  *C 

FREEZING-POINT  LOVERING  S3  *C 

MOLES  OF  SULFUR  PER  1000  GM.  NAPHTHALENE  ! 0.43476  2609  MOLES 

HASS  OF  NAPHTHALENE  IN  SOLUTION  • 19.885  GRAMS 

MASS  OF  SULPHUR  IN  SOLUTION  • 2*06  GRAMS 

MASS  OF  SULPHUR  PER  1000  GM.  NAPHTHALENE  t 106.8167711  GRAMS 

MASS  OF  SULPHUR  IN  ONE  MOLE  OF  SULPHUR  • 245.6631734  GRAMS 

FORMULA  OF  SULPHUR  MOLECULE  IN  SOLUTION!  S 8 

✓CONCLUSIONSN 

1)  THE  ACTUAL  VALUE  FOR  THE  FREEZING-POINT  OF  NAPHTHALENE 
IS  ABOUT  60'C. 

YOU  WERE  CORRECT. 


2)  BASED  ON  THE  MASSES  OF  SULPHUR  AND  NAPHTHALENE 

YOU  USED#  THE  FREEZING-POINT  OF  THE  SOLUTION  SHOULD  HAVE 
BEEN  ABOUT 
76.7  #C. 

YOU  WERE  CORRECT. 

3)  THE  FORMULA  OF  THE  SULPHUR  MOLECULE  SHOULD  BE  S 8. 

YOU  WERE  ABSOLUTELY  RIGHT! 

✓FUN  A GAM  ESN 

THERE  ISA  NUMBER  ASSIGNED  TO  EACH  POINT  ON  THE 
GRAPH.  THESE  ARE  THE  NUMBERS  LABELED  • TIME-MINUTES* . FOR 
EACH  OF  THE  TWO  SETS  OF  POINTS  AND  WITHOUT  LIFTING  "YOUR 
PENCIL#  CONNECT  THE  DOTS  IN  NUMERICAL  ORDER.  TRY  TO  MAKE 
SMOOTH  CURVES.  \«V/V  ' •' 


EXTRA  CREDIT!  COLOR  THE  TVO  CURVES  ON  YOUR  GRAPH  WITH 
DIFFERENT  CRAYONS  OR  PENS.  (HINT!  USE  A BLEND  OF  THE  COLORS 
CN  ' THE  PLACE  WHERE  THE  CURVES  OVERLAP.) 

THIS  HAS  BEEN  THE  I6TH  IN  THE  VSPEX/  LAB 
EXPERIMENTS  SERI ES.  ; ; V- ■.../>  / 

■ COLLECT  THE  VKOL  E SET l ‘ • X: i;;-V  • v.:: 
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LISTING  OF  /SPEX16/ 

Notice  that  certain Unusual  features  have  been  used  by 
this  students 

AC.  PI  (line  40)  means  ACCEPT  P1-- -produces  an  input  request  without  a 

EPS= • 2 (line  815)  sets  the  tolerance 

for  the  use  of  "equals  approximately"  »#  in 

the  following  line. 


5 DIM  AC  12) #BC 12)# ASC 12 ) #BSC 18) 

10  pr • PR • pr • PR • ::;- 

"EXPERIMENT  16 1 MOLECULAR  MASS  FROM  FREEZING-POINT  LOWERING” 

20  PR.PR.PR.PR.PR.PR.TABC26)  «M/DATA\M 
30  PR.PR.PR.TABC21)«"PURE  NAPHTHALENE" 

40  PR.PR.PR."VHAT  WAS  THE  MASS  OF  THE  PAPER  C IN  GRAMS)?  "« AC.  PI 
50  PR  • PR  ."MASS  OF  NAPHTHALENE  PLUS  PAPER  CIN  GRAMS)?  "«AC.  N1 
60  PR* PR •" INCLUDING  THE  INITIAL  READING# 

HOW  MANY  TEMPERATURES  DID  YOU  RECORD?  99 « AC.  T l 

63  IF  Tl>12  THEN  PR. PR. "ONLY  12  TEMPERATURES  WILL  BE  ACCEPTED." 

64  IF  Tl>12  THEN  Tl-12 

65  IF  Tl<3  THEN  PR. PR."YOU  MUST  HAVE  AT  LEAST  3 TEMPERATURES.” 

GOTO  60 

70  PR. PR."VHAT  WAS  THE  INITIAL  TEMPERATURE  CIN  •C)?  "lAC.  AC  1 ) 

80  PR.PR."VHAT  WAS  THE  2ND  TEMPERATURE?  99 1 AC . AC 2) 

90  PR.PR."WHAT  WAS  THE  3RD  TEMPERATURE?  " I AC  • AC3) 

95  IF  Tl-3  THEN  130 
100  FOR  1-4  TO  T1 

110  PR  .PR  ."WHAT  WAS  THE"lI«”TH  TEMPERATURE?  "«AC.  AC  I ) 

120  next  I • 

130  PR.PR.PR.T ABC  18)* "NAPHTHALENE  AND  SULPHUR" 

140  PR.PR.PR."VHAT  WAS  THE  MASS  OF  THE  PAPERC  IN  GRAMS) ? ”«AC.P2 
150  PR. PR. "MASS  OF  THE  SULPHUR  AND  PAPER  CIN  GRAMS)?  "IAC.N2 
160  PR. PR. 99 INCLUDING  THE  INITIAL  READING# 

HOW  MANY  TEMPERATURES  DID  YOU  RECORD?  99 1 AC.  T2 
163  IF  T2> 12  THEN  PR.PR. 

"ONLY  12  TEMPERATURES  WILL  BE  ACCEPTED.” 

J64  IF  T2>12  THEN  T2-12 

165  IF  T2<3  THEN  PR.PR.”YOU  MUST  HAVE  AT  LEAST  3 TEMPERATURES.99 
GOTO  160  :**'  *■;  : * 

170  PR  .PR  ."WHAT  WAS  THE  INITIAL  TEMPERATURE  C IN  9C )?  99 1 AC.  BC1) 
PR.PR."WHAT  WAS  THE  2ND  TEMPERATURE?  9M AC.  BC2) 

PR. PR. "WHAT  WAS  THE  3RD  TEMPERATURE?  99 1 AC  . BC  3 ) 

IF  T2-3  THEN  230  . • *N‘  ' • : ‘ : * 

FOR  I«4  TO  T2 

PR  .PR  ."WHAT  WAS  THE"lI«"TH  TEMPERATURE?  ”«AC.  BCI) 

NEXT  I ‘VVV-.Vv..  • ■.  ' 

PR  . PR  . PR  . PR . PR  • PR  . T ABC  2 5 ) * "/RESULTS  V9 

PR  • PR  • PR  .T  ABC  6 ) «”T  I ME -'TEMPERATURE  GRAPH  OF  COOLING  NAPHTHALENE" 
PR. PR. "TEMP."  "•■C  - 


180 

190 

195 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

385 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


PR ."  9 C" 

FOR  Y-90  TO  65  BY  -1 

PR.  Yi  '•  nv.;-:  ‘V.:  • f-y  r. • c-:-:.'-  ^ • 

FOR  I pI  TO  12  - /tV-' 

IF  Y-INTCAC I )♦ .5)  THEN  ASCI)®99#  99  ELSE 

IF  Y-INTCBCI  )♦  .5)  THEN  BSC  I )■?•♦  99  ELSE 

NEXT.  I V..  = -..Vv  . - 

for  i«i  to  12  '.--v* 

IF  ASCI  )-BSCI)  THEN  PR.  ASCI)  * GOTO  380 


ASC I )« 
BSC  1)< 


IF  ASCI)-99 
IF  BSC  I )«” 
PR.99*  ”« 

NEXT  I 
PR. 

NEXT  Y ' ''■■'■"t ' 

PR.”  "I 
FOR  P-1  TO  12 
PR."9  "* 

NEXT  P 

PR.  • ■' 

PR."  "I  ; 

FOR  P-0  TO  9 
pRi  p«"  "« 

NEXT  P 


THEN 

THEN 


PR. 

PR. 


BSC  1)1 
ASC 1)1 


GOTO 

GOTO 


380 

380 
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LISTING  OF  /SPEXI6/  (CONTINUED) 


490  PB."  10  I!" 

SOO  PB.TAB<83>I"TIME-MINUTF,S" 

S10  PR.PR."THE  PURE  NAPHTHALENE  IS  REPRESENTED  BY  THIS  SYMBOL  I •" 

SSO  PB*”THE’  SULPHUR  SOLUTION  IS  REPRESENTED  BY  THIS  SYMBOL!  ♦" 

S30  PR  .TAB(  IS)  l”THE  INTERSECTION  IS  THIS  SYMBOL!  «** 

S40PR.PR.PR. "FROM  THE  ABOVE  GRAPH*" 

5S0PR.  PR  ."ESTIMATE  THE  FREEZING-POINT  OF  THE  PURE  NAPHTHALENE!  MlAC  .FI 

560PR.  PR  ."EST  IMATE  THE  FREEZING-POINT  OF  THE  SULPHUR  SOLUTION!  "! AC •FB 

S70  L*»F1-F2#E»L/6.9#S1“N1-P1#S8»N2-P2»M*1000*S2/S1« A»M/E»S«INT(A/38 .0 
64t  .5) 

700  PB.PR.PR.PR."FREEZING-POINT  OF  PURE  NAPHTHALENE  !"!Fl!"  "*" 

• C" ' ; : A.  . 

710  PB.PR.”FREEZING-POINT  OF  SOLUTION  !"lF2l"  *C" 

715  PR  • PR  * "FREEZ I NG  -PO I NT  LOVERING  !HlL#M  *C" 

780  PR.PR.”MOLES  OF  SULFUR  PER  1000  OM.  NAPHTHALENE  l"lEl"  "•"MOLES" 
740  PR* PR. "MASS  OF  NAPHTHALENE  IN  SOLUTION  l”lSl»"GRAMS" 

750  PR  .PR ."MASS  OF  SULPHUR  IN  SOLUTION  l”lS8»"GRAMS" 

760  PB.PR.”MASS  OF  SULPHUR  PER  1000  GM • NAPHTHALENE  l"lM»"GRAMS" 

770  PB.PR.”MASS  OF  SULPHUR  IN  ONE  MOLE  OF  SULPHUR  l”lA»"GRAMS" 

780  PB.PR. PR. "FORMULA  OF  SULPHUR  MOLECULE  IN  SOLUTION!  S"!S 

.800  PR  .PR.PR  .PR  .PR .PR »TAB<23  > I "/CONCLUSIONS  V* 

810  PR.PR.PR. 

"I ) THE  ACTUAL  VALUE  FOR  THE  FREEZING-POINT  OF  NAPHTHALENE 
IS  ABOUT  80*C." 

815  EPS- .8 

880  IF  F)>#80  THEN  PR. "YOU  VERB  CORRECT."  GOTO  845 
830  IF  Fl#80  THEN  PR.**YOU  VERE"lABSCFl-80) lM  DEGREE**! 

840IF  ABSCF1-80X"!  THEN  PR. **  OFF.**  ELSE  PR.**S  OFF.** 

845  J»  C I NTC 1 0*  C M/8*6 . 9/32 . 064*  • 5 > > > / 1 0 

850  PR.PB."8>  BASED  ON  THE  MASSES  OF  SULPHUR  AND  NAPHTHALENE 
YOU  USED/  THE  FREEZING-POINT  OF  THE  SOLUTION  SHOULD  HAVE 
BEEN  ABOUT" 1 80- Jl"  *C.** 

860  IF  F8>#80-J  THEN  PR. "YOU  HERE  CORRECT."  GOTO  875 
865  IF  F2#80»J  THEN  PR***YOU  VERE"lABS  CF2-80+J)  I "DEGREE"! 

870  IF  ABS(80-J><al  THEN  PR.**  OFF."  ELSE  PR.  "S  OFF." 

875  PR.PR.”3>  THE  FORMULA  OF  THE  SULPHUR  MOLECULE  SHOULD  BE  S 8." 

880  IF  S>8  THEN  PR. "YOU  VERE  ABSOLUTELY  RIGHT !**  ELSE 

PR. "MAYBE  YOU'LL  HAVE  BETTER  LUCK  ON  THE  NEXT  EXPER I MENT • • • " 

950  PR.PR.PR.PR.PR.PR.TAB<83>! 

958  GOSUB  998 

953  PR • "/FUN  A GAMESV*! 

9S6  GOSUB  998 

960  PR  .PR.PR.PR.”  THERE  IS  A NUMBER  ASSIGNED  TO  EACH  POINT  ON  THE 
GRAPH.  THESE  ARE  THE  NUMBERS  LABELED  ’TIME-MINUTES*.  FOR 

EACH  OF  THE  TVO  SETS  OF  POINTS  AND  VITHOUT  LIFTING  YOUR 
PENCIL*  CONNECT  THE  DOTS  IN  NUMERICAL  ORDER.  TRY  TO  MAKE" 

961  PR  ."SMOOTH  CURVES." 

970  PR. PR. "EXTRA  CREDIT!  COLOR  THE  TVO  CURVES  ON  YOUR  GRAPH  WITH 
DIFFERENT  CRAYONS  OR  PENS.  (HINT!  USE  A BLEND  OF  THE  COLORS 
ON  THE  PLACE  WHERE  THE  CURVES  OVERLAP.  >” 

980  PR.PR.PR.PR."THIS  HAS  BEEN  THE  I6TH  IN  THE  /SPEX/  LAB 
EXPERIMENTS  SERIES.” 

990  PR  .PR  ."COLLECT  THE  WHOLE  SETI"PR.PR.PR.PR. 

991  END 

992  GS*CHAR(007> 

993  PR.  G$!  FOR  Jal  TO  5 

994  RETURN 
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